use strict; 
use warnings; 
use Hello; # What you're testing. 
use Test::More; 
use base qw(Test::Class); 

my $hellostr=Hello::hello('guys'); 
my $byestr=Hello::bye('guys'); 

sub initial : Test(setup) { 
    print "Begin One Test...\n"; 
} 
sub end : Test(teardown) { 
    print "End One Test...\n"; 
} 
sub test_hello : Test(1) { 
    is($hellostr, 'Hello, guys!', 'hello() works'); 
} 
sub test_bye : Test(1) { 
    like($byestr, "/Goodbye/", 'bye() works'); 
} 
Test::Class->runtests(); 
